home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed6.d64 / speed spell 7 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  11KB  |  288 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 111 IFUA=39THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  29. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  30. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  31. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  32. 310 REM PROJECT MANAGER: FRANK WINTER
  33. 320 REM PROGRAM NAME: SPEED SPELL 7
  34. 330 REM WRITTEN BY: UNKNOWN
  35. 340 REM REVISED BY: JAN SAWCZAK"
  36. 350 [143] UPDATED BY: BILL CUMBERLAND
  37. 360 [143] IF REQUIRED, THE WORD LIST CAN BE"
  38. 365 REM MODIFIED TO INCLUDE OTHER WORDS THAT ARE BEING STUDIED.
  39. 370 REM CHANGE OR ADD WORDS INTO DATA LINES 1900-2345
  40. 375 REM MAXIMUM WORD LENGHT IS SET AT 20 LETTERS.
  41. 380 REM TO ACCOMMODATE LONGER WORDS, CHANGE THE VALUE OF 'UL' IN LINE 1380.
  42. 385 REM NOTE: DO NOT CHANGE OR DELETE DATA LINE 2350
  43. 399 :
  44. 400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9
  45. 410 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  46. 420 [153]" (null)HIS PROGRAM IS A WORD GAME TO HELP"
  47. 430 [153]" YOU PRACTISE CHR$RADE 7 SPELLING WORDS.":[141]591
  48. 440 [153]" (null)ATCH THE BRIEF DISPLAY OF EACH WORD.":[141]591
  49. 450 [153]" (null)HEN TYPE WHAT YOU SEE.":[141]591
  50. 460 [153]" ATNFTER 25 WORDS, YOUR SCORE WILL BE      DISPLAYED.
  51. 490 GOSUB820:RETURN
  52. 499 :
  53. 500 REM <YES> SOUND
  54. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  55. 510 POKE54296,15:POKE54277,42:POKE54278,250
  56. 515 POKE54276,23:POKE54273,23:POKE54272,191
  57. 520 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  58. 525 POKE54296,0:RETURN
  59. 530 REM <NO> SOUND
  60. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  61. 540 POKE54296,15:POKE54277,18:POKE54278,242
  62. 545 POKE54276,33:POKE54273,4:POKE54272,48
  63. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  64. 555 POKE54296,0:RETURN
  65. 560 REM <BLIP> SOUND
  66. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  67. 570 POKE54296,8:POKE54277,42:POKE54278,250
  68. 575 POKE54276,23:POKE54273,23:POKE54272,191
  69. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  70. 585 POKE54296,0:RETURN
  71. 590 FORTM=1TO500:NEXT:RETURN
  72. 591 FORTM=1TO1000:NEXT:RETURN
  73. 592 FORTM=1TO2000:NEXT:RETURN
  74. 595 FORTM=1TO5000:NEXT:RETURN
  75. 599 :
  76. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  77. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM ":GOSUB591
  78. 802 PRINT"                                        [146]";
  79. 803 PRINT"                                        [146]";
  80. 804 PRINT"                                        [146]";
  81. 805 PRINT"             SPEED SPELL 7              [146]";
  82. 806 PRINT"                                        [146]";
  83. 807 PRINT"                                        [146]";
  84. 808 PRINT"                                        [146]":GOSUB591:GOSUB560
  85. 809 PRINT"          INSTRUCTIONS?  Y/N
  86. 810 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 810
  87. 811 [139]R$[178]"Y"[167] [141] 400
  88. 812 [153]"LOAD  AND AWAY WE GO!
  89. 813 GOSUB591:GOSUB500:GOSUB591
  90. 814 GOTO1000
  91. 820 GOSUB591:GOSUB560
  92. 822 POKEUN,0:PRINTLEFT$(UD$,24);"  [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE  [146]"
  93. 824 GETUI$:IFUI$<>CHR$(32)THEN824
  94. 826 RETURN
  95. 830 GOSUB591:GOSUB560
  96. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[153]  [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE  [146][155]"
  97. 840 GETUI$:IFUI$<>CHR$(32)THEN840
  98. 845 RETURN
  99. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  100. 855 PRINT" --------------------------------------"
  101. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS [210][197][212][213][210][206][146]
  102. 865 UH[178]0:[153]"":[142]
  103. 875 [153][200](UD$,24);"       ASCIFTEEN SECONDS PLEASE...      ":[142]
  104. 899 :
  105. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  106. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  107. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  108. 905 UD$[178]"":UP$[178]"                                      "
  109. 906 L[178]650:[134] T$(L),A$(30)
  110. 909 [142]
  111. 910 [141]900:[153]"LOAD "
  112. 920 [137]800
  113. 999 :
  114. 1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
  115. 1050 UT$[178]" (null)PEED (null)PELL 7":UP[178]0
  116. 1100 [151]UT,UL%:UG$[178]""
  117. 1115 [153]"LOAD   PEEKEFORE BEGINNING THIS CHR$RADE 7 WORD"
  118. 1120 [153]"   GAME, DO YOU WISH TO SEE THE WORDS"
  119. 1125 [153]"   (ALL 427 OF THEM)?  (Y/N)  ";
  120. 1135 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 1135
  121. 1140 [139]R$[178]"Y"[167]1670
  122. 1150 [141]8000:[141]875:UG$[178]"":[140]
  123. 1165 T[178].1
  124. 1170 J[178]T[172]60:B[178]147
  125. 1185 C[178]0
  126. 1195 [135] R$
  127. 1200 [139] R$[178]"XXX" [167] 1225
  128. 1205 C[178]C[170]1
  129. 1210 [139] C[177]L [167] [153]"(null)OO MANY WORDS CHANGE LINE 906 SO THAT (null)> NO. OF WORDS"
  130. 1215 T$(C)[178]R$
  131. 1220 [137] 1195
  132. 1225 R[178][187]([171]TI)
  133. 1230 R[178][187]([171]TI)
  134. 1245 [153]"LOAD ATN WORD WILL BE FLASHED BETWEEN THESE    LINES.
  135. 1250 PRINT" [215]ATCH CAREFULLY!":GOSUB592
  136. 1255 PRINT"           ---------
  137. 1260 [153]"           ---------":[141]560:[141]560:[141]591
  138. 1265 [153]" (null)HEN TYPE WHAT YOU SEE.":[141]592
  139. 1295 [153]" (null)E'LL START AT";T;"SECONDS.":UP[178]0:UQ[178]0
  140. 1315 UQ[178]UQ[170]1:[141] 830
  141. 1320 R[178][181](C[172][187](1))[170]1
  142. 1325 [139] R[178]P1 [176] R[178]P2 [176] R[178]P3 [167] 1320
  143. 1330 [139] R[178]P4 [176] R[178]P5 [167] 1320
  144. 1335 [139] UQ[177]NW [167] 1500
  145. 1337 UH[178]1:UG$[178]"(null)ORD #":[141]850:[141] 1475
  146. 1340 [141]591:[141]560:[141]560
  147. 1345 [153][200](UD$,13);[163]20[171]([195](T$(R)))[173]2);
  148. 1347 [153]T$(R)
  149. 1350 S[178]TI
  150. 1355 [139] TI[171]S[179]J [167] 1355
  151. 1360 [143]
  152. 1365 UP[178]UP[171]1:[141]850
  153. 1375 [153]" (null)HAT WAS IT?  >>>> ";
  154. 1380 US$[178]"":UL[178]20:[141]35:R$[178]UR$
  155. 1385 [153]
  156. 1390 [139] R$[179][177]T$(R) [167] 1440
  157. 1395 [141]500:[153]"SYS (null)HAT'S RIGHT! >>>> "T$(R)" WAITLIST"
  158. 1400 CR[178]CR[170]1:J[178]J[171]3
  159. 1401 [141] 1800
  160. 1405 [139] J[179]1.5 [167] J[178]1.5
  161. 1410 [153]
  162. 1415 P1[178]P2:P2[178]P3:P3[178]P4:P4[178]P5:P5[178]R
  163. 1417 [139] UP[177]9 [167] 1315
  164. 1420 [153]" (null)HE NEXT ONE WILL BE DISPLAYED"
  165. 1425 [153]" FOR";J[173]60;"SECONDS."
  166. 1435 [137] 1315
  167. 1440 [141]530:[153]"          DEF (null)(null)(null)(null)CHR$! WAIT  RIGHT$T WAS -- ":WRO[178]WRO[170]1
  168. 1442 [129]FL[178]1[164]11
  169. 1444 [153]""[163]16[171]([195](T$(R))[173]2))">>>"[199](18[171]128[172](FL[173]2[178][181](FL[173]2)))" "T$(R)" WAIT<<<ON"
  170. 1446 [129]TX[178]1[164]100:[130]:[130]
  171. 1448 [153]"LIST":[141] 1800
  172. 1450 J[178]J[170]3
  173. 1455 [139] [181](J[173]3)[179][177]J[173]3 [167] J[178]3[172][181](J[173]3)
  174. 1460 [137] 1410
  175. 1475 NQ[178]NQ[170]1
  176. 1480 [153]"-----------"
  177. 1485 [153]"-----------"
  178. 1486 [142]
  179. 1500 [151]53280,0:[151]53281,0:[151]646,13:SC[178]CR[173]25[172]100
  180. 1510 [153]"LOAD           (null)VAL(null)(null)(null)(null)(null) WAIT
  181. 1520 PRINT"     [217]OUR SCORE IS:";SC;"PER CENT"
  182. 1525 PRINT"     [206]UMBER OF CORRECT WORDS:";CR
  183. 1530 PRINT"     [206]UMBER OF WRONG WORDS  :";WRO
  184. 1535 IF CR=25THENPRINT"[158]              [197][216][195][197][204][204][197][206][212]!                [146][155]":GOTO1550
  185. 1540 IFCR<20THENPRINT"[150]      [217]OU MUST TRY HARDER.              [155][146]":GOTO1550
  186. 1545 PRINT"            [199]OOD WORK!                  [146][155]
  187. 1550 [153]"":[141]830
  188. 1555 [153]"LOAD    (null)OU HAVE A CHOICE:
  189. 1560 PRINT"    [208]RESS  [205] [146] TO RETURN TO THE MENU
  190. 1565 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1565
  191. 1570 [139]R$[178]"R"[167][140]:[137]800
  192. 1580 [153]"LOAD  (null)ETURNING TO THE DISK (null)VAL(null)(null)
  193. 1585 LOAD"MENU",8
  194. 1590 RUN
  195. 1595 END
  196. 1670 RESTORE:UG$="EXAMINE WORDS":UP=0
  197. 1680 FORA=1TO20
  198. 1690 READA$(A)
  199. 1695 IFA$(A)="XXX"THEN1710
  200. 1700 NEXTA
  201. 1710 UH=1:GOSUB850
  202. 1715 FORI=1TOASTEP2
  203. 1720 IFA$(I)="XXX"THENPRINT:GOSUB835:GOTO1150
  204. 1730 PRINT"";A$(I);
  205. 1740 IFA$(I+1)="XXX"THENGOSUB835:GOTO1150
  206. 1750 PRINTTAB(20);A$(I+1)
  207. 1760 NEXTI
  208. 1770 GOSUB835
  209. 1785 GOTO1680
  210. 1800 PRINT"[217]OUR SCORE IS "CR"CORRECT"
  211. 1810 PRINT"              "WRO"WRONG"
  212. 1820 RETURN
  213. 2000 DATA"ABSENCE","ABSENT","ABSOLUTE","ABSTRACT","ACCIDENT","ACCOMPANY"
  214. 2005 DATA"ACCOMPLISH","ACCOUNT","ACCURATE","ACID","ACTIVITY","ADDRESSED"
  215. 2010 DATA"ADMIRE","ADMISSION","ADMITTANCE","ADMITTED","ADOPTED","ADVICE"
  216. 2015 DATA"AFFECT","AFFECTION","AFFORD","AGENCY","AGENTS","ALCOHOL","ALMANAC"
  217. 2020 DATA"ALTER","AMBITION","AMBITIOUS","AMUSEMENT","ANGEL","ANNIVERSARY"
  218. 2025 DATA"ANNOUNCE","ANNUAL","APARTMENT","APIECE","APPLAUSE","APPLY"
  219. 2030 DATA"APPROACH","ARCH","ARCTIC","ARGUMENT","ARRANGEMENT","ARRIVE"
  220. 2035 DATA"ASHAMED","ASSEMBLE","ASSIGNMENT","ASSIST","ASSURE","ATHLETE"
  221. 2040 DATA"ATTACH","ATTENTION","AUTOGRAPH","AUTOMATIC","AUTOMOBILE","AVOID"
  222. 2045 DATA"BALLOT","BANANA","BANQUET","BAROMETER","BASKETBALL","BEACH"
  223. 2050 DATA"BELIEF","BELIEVED","BENEFICIAL","BENEFIT","BLIZZARD","BOULDER"
  224. 2055 DATA"BOUNDARY","BOUQUET","BREAST","BRIDAL","BRIDLE","BROKER","BRUNETTE"
  225. 2060 DATA"BUFFALO","BULB","BUSINESS","CABINET","CALENDAR","CALM","CALORIES"
  226. 2065 DATA"CARBON","CATALOGUE","CAUTION","CEILING","CELEBRATE","CELERY"
  227. 2070 DATA"CEREAL","CERTAINLY","CHARACTER","CHIEFLY","CHIMNEY","ADJUST"
  228. 2075 DATA"CHOCOLATE","CHOIR","CHORD","CIVIL","CLERGY","CLERK","CLIENT"
  229. 2080 DATA"COCOA","COLLECTION","COLLEGE","COLUMN","COMMAND","COMMENCE"
  230. 2085 DATA"COMMUNIST","COMPANION","COMPASS","COMPLAIN","CONCERN","CONCLUDE"
  231. 2090 DATA"CONCRETE","CONDITION","CONDUCT","CONFEDERATION","CONFIRM","CONFUSE"
  232. 2095 DATA"CONNECT","CONQUER","CONSCIOUS","CONSIDERATION","CONSIST","CONSTANT"
  233. 2100 DATA"CONSULT","CONTENT","CONTINENT","CONTINUES","CONTRACT","CONTRARY"
  234. 2105 DATA"CONVENTION","CONVINCE","COPIES","CREATOR","CRIMINAL","CYCLE"
  235. 2110 DATA"DECLARATION","DECORATION","DEFECTIVE","DEFINITE","DELIVERY","DEMAND"
  236. 2115 DATA"DEMOCRATIC","DENTIST","DEPOSIT","DESCRIBING","DESERT","DESERVE"
  237. 2120 DATA"DESIGNER","DESPISE","DESTINATION","DESTROY","DEVELOPMENT","DIAGRAM"
  238. 2125 DATA"DIAMOND","DIARY","DICTIONARY","DIFFERENCE","DIFFICULTY","DIGEST"
  239. 2130 DATA"DIRECTION","DISAPPEAR","DISAPPOINTED","DISASTER","DISCOVERY"
  240. 2135 DATA"DISSOLVE","DISTANCE","DISTANT","DISTRICT","DOUBTLESS","DRAMA","DUET"
  241. 2140 DATA"DUTIFUL","DWELLING","ECOLOGY","EDITOR","EDUCATION","EFFECT","EFFORT"
  242. 2145 DATA"ELBOW","ELECTION","ELECTRICAL","ELECTRICIAN","ENCOURAGE","ENGINEER
  243. 2150 [131]"ENTIRE","EQUIPMENT","ERASER","ERRAND","ERRORS","ESCAPE"
  244. 2155 [131]"EXAMPLE","EXCELLENT","EXCEPTION","EXCITEMENT","EXCLAIM","EXPENSIVE
  245. 2160 DATA"EXPERIENCE","EXPLAINED","EXPLANATION","EXTEND","EXTENSIVE","FACTORY"
  246. 2165 DATA"FAREWELL","FATAL","FAVORITE","FERRY","FERTILE","FESTIVAL","FEVER"
  247. 2170 DATA"FIERCE","FILING","FINALLY","FINANCE","FIXTURES","FLORAL","FORMERLY"
  248. 2175 DATA"FRIGHTENED","FUEL","FUNERAL","FUNGUS","FURNACE","FURNISHING"
  249. 2180 DATA"GARMENT","GENERALLY","GENEROUS","GEOGRAPHY","GLOOMY","GOVERNOR"
  250. 2185 DATA"GRADUATE","GRATEFUL","GROCERIES","GUIDANCE","GUILTY","HARMONY"
  251. 2190 DATA"HAUNTED","HEADACHE","HEAVILY","HECTARE","HESITATE","HIDDEN","HINGE"
  252. 2195 DATA"HONESTY","HORRIBLE","HORROR","HOSPITAL","HOST","HUMAN","HUMBLE"
  253. 2200 DATA"HURRICANE","HUSTLE","HYDROELECTRIC","ICY","IGNORANCE","IGNORANT"
  254. 2205 DATA"IMAGINE","IMMEDIATE","IMMENSE","IMPORTANCE","IMPRESS","INDEPENDENT"
  255. 2210 DATA"INDEX","INFLUENCE","INFORMAL","INFORMED","INQUIRE","INSTRUCT"
  256. 2215 DATA"INSULATION","INTENTION","INTERNAL","INTRODUCTION","INVALID"
  257. 2220 DATA"INVESTIGATE","INVESTMENT","INVITATION","ISSUE","ITEM","JEWEL"
  258. 2225 DATA"JOURNEY","JUDGEMENT","JURY","JUSTICE","JUSTIFY","KNITTING","KNOCKED"
  259. 2230 DATA"KNOT","LACROSSE","LANTERN","LATTER","LAUGHTER","LAUNDRY","LAWYER"
  260. 2235 DATA"LEAGUE","LECTURE","LEMONADE","LIGHTNING","LIMITED","LISTENED"
  261. 2240 DATA"LITERATURE","LOAF","LOCALITY","LOOSENED","LOVABLE","MACHINERY"
  262. 2245 DATA"MAGAZINE","MAINTAIN","MAJOR","MANAGEMENT","MANUFACTURE","MATERIAL"
  263. 2250 DATA"MATHEMATICS","MEDICAL","MELODY","MENACE","MERCHANT","MESSENGER"
  264. 2255 DATA"MINUTES","MIRROR","MISCHIEF","MIST","MISUNDERSTAND","MODERATE"
  265. 2260 DATA"MOSQUITO","MOTORIST","MOURN","MOVEMENT","MUSICAL","MUTUAL"
  266. 2265 DATA"MYSTERY","NAKED","NATIVE","NAVIGATE","NEEDLESS","NOISILY","NONSENSE"
  267. 2270 DATA"NOTIFY","NUMBERED","OBLIGED","OBSERVATION","OBSERVER","OBTAIN","ONYX"
  268. 2275 DATA"OCCASION","OCCUPATION","OCCUR","ODOR","OFFERED","OPENED","OPERA"
  269. 2280 DATA"OPERATING","OPERATION","OPINION","OPPOSITE","ORDINARY","ORGANIST"
  270. 2285 DATA"PALM","PARDON","PARLIAMENTARY","PASSAGE","PASSENGER"
  271. 2290 DATA"PASTURE","PATRON","PERCENTAGE","PERFORMANCE","PERMISSION"
  272. 2295 DATA"PERMIT","PERSUASION","PHOTOGRAPH","PHYSICAL","PIANIST","PIGEON"
  273. 2300 DATA"PIONEER","PLAGUE","PLAQUE","PLUMBER","POETRY","PORRIDGE","POSSIBLE"
  274. 2305 DATA"POSTAL","POSTPONE","PRACTICAL","PRAIRIE","PREFER","PRESENCE"
  275. 2310 DATA"PRESENTLY","PRESERVE","PRETEND","PREVENT","PRIEST","PRINCIPAL"
  276. 2315 DATA"PROBLEMS","PROCEDURE","PROCEEDS","PROCESS","PROFESSION","PROFESSOR
  277. 2320 [131]"PROFIT","PROHIBIT","PROJECT","PROMISES","PROMPTLY","PROPOSE"
  278. 2325 [131]"PROTECTION","PROVEN","PUBLISHER","PUNCTUAL","PUNISH","PYRAMIDS"
  279. 2330 [131]"QUANTITIES","QUARREL","QUESTIONS","QUIETLY","QUOTATION","QUOTIENT"
  280. 2335 [131]"AFFAIR","APPOINTED","ARTICLE","BECOMING","CENTURY","CLIMATE"
  281. 2340 [131]"COMMERCE","DEBTOR","DISEASE","EXAMINATION","GARBAGE"
  282. 2345 [131] "XXX"
  283. 8000 [143] NUMBER OF WORDS DISPLAYED
  284. 8010 [153]"LOAD        (null)HERE WILL BE 25 WORDS.":NW[178]25:[141]591
  285. 8020 [153]"          (null)ETTING THE STAGE.
  286. 8030 RETURN
  287. 8100 REM WHC 90:11:29
  288.